home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PROFILE.DIR / 00024_Script_#pmtop roll script < prev    next >
Text File  |  1997-07-29  |  1KB  |  53 lines
  1. global current_pm, pmpal, virtualrolloverlist
  2. on exitFrame
  3.   pmrolls
  4.   
  5.   go the frame
  6. end
  7.  
  8.  
  9. on pmrolls
  10.   set dframe = marker("pmtop") + 2
  11.   repeat with x in virtualRolloverList
  12.     if inside(point(the mouseH, the mouseV), x) then
  13.       
  14.       handcursor
  15.       set current_pm = getPos(virtualRolloverList,x)
  16.       pmenu(current_pm) -- pos equals pm number
  17.       
  18.       repeat while inside(point(the mouseH, the mouseV),x)
  19.         if the mousedown then 
  20.           global menumouse
  21.           if not menumouse then
  22.             waitcursor 7
  23.             preload marker("prof start" + current_pm)
  24.             pm_prep(current_pm) -- sets the pm to go to the profile on the next idle event
  25.             
  26.             updatestage
  27.             set the cursor of sprite 7 = 0
  28.             abort
  29.           end if
  30.           set menumouse = 0
  31.         end if
  32.         updatestage
  33.       end repeat
  34.       
  35.     else
  36.       go to frame dframe
  37.       set current_pm = 0
  38.       
  39.       updatestage
  40.     end if
  41.     case true of --??
  42.       (rollover(7)) : cursor 0
  43.       (rollover(10)),(rollover(12)),(rollover(13)) : handcursor
  44.     end case
  45.   end repeat  
  46. end
  47.  
  48. on pmenu pm
  49.   go to frame (marker("pmtop") + 2 + integer(pm))
  50.   
  51.   set current_pm = pm
  52. end
  53.